home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / SCROLL.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-11  |  993 b   |  28 lines
  1. 0 LINESKIP =4 
  2. 5 PAGESIZE =20 
  3. 10 dim SCROLL$[400 ] 
  4. 11 rem *
  5. 12 rem *
  6. 15 rem ___LOAD_MORTGAGE_PROGRAM_INTO_STRING_ARRAY______ 
  7. 16 rem *
  8. 17 rem *
  9. 20 open "mortgage.bas" for input as #1 
  10. 30 for TOTAL =0 to 400 :rem __400_LINES_MAX___ 
  11. 35 if eof (#1 )=1 then goto 100 
  12. 40 input #1 ,SCROLL$[TOTAL ] :next TOTAL 
  13. 100 close #1 :cls 
  14. 101 cursor (0 ,1 ):print "Scrolling down to the BOTTOM of the array" 
  15. 102 for START =0 to TOTAL -PAGESIZE step LINESKIP :gosub 120 :next START 
  16. 103 cursor (0 ,1 ):print "Scrolling up to the TOP of the array!         " 
  17. 104 for START =TOTAL -PAGESIZE to 0 step -1 *LINESKIP :gosub 120 :next START 
  18. 105 cursor (0 ,25 ):print "Done Scrolling -- Check out the source code" :end 
  19. 110 rem *
  20. 111 rem *
  21. 112 rem ___PAINT_SCREEN_STARTING_AT_LINE_NUMBER_IN_START__ 
  22. 113 rem *
  23. 114 rem *
  24. 120 for J =START to START +PAGESIZE 
  25. 130 cursor (0 ,J -START +3 )
  26. 140 print left$ (SCROLL$[J ] ,80 );spc (80 -len (left$ (SCROLL$[J ] ,80 )));
  27. 150 next J :return 
  28.